home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Multimedia / MIDI / JUNO Librarian 1.1.7 / Sample Scripts / 24 Change HPF Freq < prev    next >
Text File  |  1994-01-28  |  384b  |  16 lines
  1. tell application "JUNO Librarian"
  2.     activate -- if needed
  3.     set x to Parameter 17 of Window "Sample"
  4.     set y to (round (x ÷ 8) rounding down)
  5.     set y to y * 8
  6.     set z to x - y -- VCA, ENV, PWM switch
  7.     
  8.     -- select 1 of 4
  9.     --    set x to z + 24 -- Freq 0
  10.     --    set x to z + 16 -- Freq 1
  11.     --    set x to z + 8 -- Freq 2
  12.     set x to z + 0 -- Freq 3
  13.     
  14.     copy x to Parameter 17 of Window "Sample"
  15. end tell
  16.